home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 April / CICA MS Windows - April 1993.iso / unzipped / programr / tp / ctl3dpas / ctl3d.pas next >
Pascal/Delphi Source File  |  1993-02-24  |  2KB  |  51 lines
  1. (**************************************************)
  2. (*                                                *)
  3. (*   Unit CTL3D                                   *)
  4. (*                                                *)
  5. (*   for use with CTL3D.DLL from Microsoft        *)
  6. (*                                                *)
  7. (*   submitted by Andreas Furrer                  *)
  8. (*                                                *)
  9. (**************************************************)
  10.  
  11. unit Ctl3D;
  12.  
  13. interface
  14.  
  15. uses WinTypes;
  16.  
  17. const Ctl3d_Buttons      = $0001;
  18.       Ctl3d_Listboxes    = $0002;
  19.       Ctl3d_Edits        = $0004;
  20.       Ctl3d_Combos       = $0008;
  21.       Ctl3d_StaticTexts  = $0010;
  22.       Ctl3d_StaticFrames = $0020;
  23.       Ctl3d_All          = $ffff;
  24.  
  25. function Ctl3dGetVer : word;
  26. function Ctl3dSubclassDlg(HWindow : HWnd; GrBits : word) : bool;
  27. function Ctl3dSubclassCtl(HWindow : HWnd) : bool;
  28. function Ctl3dCtlColor(DC : HDC; Color : TColorRef) : HBrush; {ARCHAIC, use Ctl3dCtlColorEx}
  29. function Ctl3dEnabled : bool;
  30. function Ctl3dColorChange : bool;
  31. function Ctl3dRegister(Instance : THandle) : bool;
  32. function Ctl3dUnregister(Instance : THandle) : bool;
  33. function Ctl3dAutoSubclass(Instance : THandle) : bool;
  34. function Ctl3dCtlColorEx(Message, wParam : word; lParam : longint) : HBrush;
  35.  
  36.  
  37. implementation
  38.  
  39. function Ctl3dGetVer;       external 'Ctl3d' index 1;
  40. function Ctl3dSubclassDlg;  external 'Ctl3d' index 2;
  41. function Ctl3dSubclassCtl;  external 'Ctl3d' index 3;
  42. function Ctl3dCtlColor;     external 'Ctl3d' index 4;
  43. function Ctl3dEnabled;      external 'Ctl3d' index 5;
  44. function Ctl3dColorChange;  external 'Ctl3d' index 6;
  45. function Ctl3dRegister;     external 'Ctl3d' index 12;
  46. function Ctl3dUnregister;   external 'Ctl3d' index 13;
  47. function Ctl3dAutoSubclass; external 'Ctl3d' index 16;
  48. function Ctl3dCtlColorEx;   external 'Ctl3d' index 18;
  49.  
  50. end.
  51.